home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / kuang / kuangeleven28.lha / Rexx / Philosophy.amirx < prev    next >
Text File  |  1997-01-03  |  3KB  |  74 lines
  1. /*                                                                            */
  2. /*                         Philosophy Script 1.0                              */
  3. /*           Stolen from "Slack" and rewritten by K. Stenström                */
  4. /*                          (crissy@tripnet.se)                               */
  5. /*                                                                            */
  6. /*        Slack is a script for ircII put together by Rev. Krusty             */
  7. /*                        (rkrusty@primenet.com)                              */
  8. /*                                                                            */
  9. /* Fixed by Ariel to accept channel and number as arguments                   */
  10. /*                  Part of Kuang Eleven v2 AmIRC distribution                */
  11.  
  12. PARSE ARG nick channel rand .
  13.  
  14. options results
  15.  
  16. getmynick
  17. MN=RESULT
  18.  
  19. IF nick = "" THEN DO
  20.     "ECHO P=«Phil» Usage: Phil [NiCk] <ChANnEl> <NuM>"
  21.     EXIT
  22. END
  23. IF channel = "" THEN DO
  24.     "GETCHANNEL"
  25.     channel=result
  26. END
  27. IF rand = "" THEN DO
  28.     seed = Time(secs)
  29.     rand = Random(1,7,seed)
  30. END
  31. /******************************************************************************/
  32.  
  33. IF rand = 1 THEN DO
  34.     "SAY Rene Descartes said 'I think, therefore I am'"
  35.     "SAY /kick "channel nick" "nick" obviously isn't thinking, therefore "nick" isn't"
  36.     EXIT
  37. END
  38.  
  39. IF rand = 2 THEN DO
  40.     "SAY Miguel de Cervantez wrote 'Every man is as Heaven made him, and sometimes a great deal worse.'"
  41.     "SAY /kick "channel nick" "nick" is a GREAT deal worse!!"
  42.     EXIT
  43. END
  44.  
  45. If rand = 3 THEN DO
  46.     "SAY Jean Jacques Rousseau wrote 'Man is born free, and everywhere he is in chains.'"
  47.     "SAY /kick "channel nick" that's MASTER "||MN||" to you, punk."
  48.     EXIT
  49. END
  50.  
  51. IF rand = 4 THEN DO
  52.     "SAY Frederich Nietzche asked 'What is it: is man only a blunder of God, or is God only a blunder of man?'"
  53.     "SAY /kick "channel nick" no matter which way you look at it, "nick" is a blunder"
  54.     EXIT
  55. END
  56. IF rand = 5 THEN DO
  57.     "SAY Aristotle wrote 'A man is the origin of his action."
  58.     "SAY /kick "channel nick" then i guess "nick" is a small penis"
  59.     EXIT
  60. END
  61. IF rand = 6 THEN DO
  62.     getmynick
  63.     mynick = upper(result)
  64.     "SAY Plato wrote 'The life which is unexamined is not worth living'"
  65.     "SAY /kick "channel nick" "mynick" examined "nick"'s life, and found it wasn't worth living anyway..."
  66.     EXIT
  67. END
  68. IF rand = 7 THEN DO
  69.     "SAY Paul Holbach wrote 'Man is not a free agent in any one instant of his life.  He is necessarily guided in each step by those advantages that he attaches to the objects by which his passions are roused..'"
  70.     "SAY /kick "nick" so you see, without free will, i was destined to kick you"
  71.     EXIT
  72. END
  73.  
  74. EXIT